* net/tramp-compat.el (tramp-compat-copy-directory)

(tramp-compat-delete-directory): New defuns.

diff --git a/lisp/net/tramp-fish.el b/lisp/net/tramp-fish.el
index 215ada5d2343f28914f4c569f080ab866820c7da..8db5dc82fd989cc554aef569bc07deb494cbaeb4 100644 (file)
--- a/lisp/net/tramp-fish.el
+++ b/lisp/net/tramp-fish.el
@@ -319,7 +319,7 @@ pass to the OPERATION."
        (mapc
         (lambda (file)
           (if (file-directory-p file)
-              (delete-directory file recursive)
+              (tramp-compat-delete-directory file recursive)
             (delete-file file)))
         ;; We do not want to delete "." and "..".
         (directory-files